textViewer Text Viewer Media Viewer Text Viewer textViewer Media Viewer mediaViewer textViewer textField evaluate(RichText) Close closeTextViewer buttonUp false _isPlaying Close Print printText buttonClick Print status 360, 7215 "textField" sysSuspendMessages Print status Text Viewer textField leavePage pageUp dpageDown textField keyDown textField pageDown textField pageUp "textField" (x = (x = keyDownArrow); pageDown 1 (x = pageUp 1 < 0); Reading document... wwwwwwwwwp wwwwwwwwwp wwwwwwwwwp wwwwwwwwwp wwwwwwwwwp wwwwwwwwwp wwwwwwwwwp wwwwwwwwwp wwwwwwwwwp wwwwwwwwwp wwwwwwwwwp wwwwwwwp wwwwwwwp wwwwwwwp Media Viewer status Media Viewer BROWSE.AVIvie...o...... Pause pauseMedia buttonClick nClick pauseMedia playMedia buttonClick playMedia timerNotify onClick playMedia timerNotify close closeMedia buttonClick nClick closeMedia Close slideBox slider rSide slideBar buttonClick nClick mousePosition e> rSide( B"slideBar" slideBar myEnabled StepBack buttonClick buttonStillDown onClick StepForward buttonClick buttonStillDown onClick mediaViewerStage closeMedia szClipRef buttonUp szClipRef closeMedia 42,42,2442,1842 mediaBounds icons CDAudio wwwwwwwwwp wwwwwp wwwwwp wwwwwwp wwwww wwwwp wwwwp wwwww wwwwwwwwwp wwwwwwwwwp Sequencer wwwwwwwwwp wwwwwwwwwp wwwwwwwwwp wwwwwwwwwp tdFFDddFFp wwwwwwwwwp wvllwwwwwp FDdFp wwwwp tdF|Htg wwwwwwwH wwwwwww wwwwwww wwwwwwwwwp wwwwwwwwwp Bitmap wwwwwwwwwp wwwww wwwww wwwww wwwww wwwwwwwwwp WaveAudio wwwwwwwwwp wwwwwwp xxxwwwwwwp xwwwwwwp wwwww wwwwp wwwwp wwwww wwwwwwwwwp wwwwwwwwwp Movie mainWindow Media Viewer iewer page "Media Viewer" mediaViewer Media Viewer ge "mediaViewer" browseViewer dia Player ge "Media Viewer" NautilusCD Browse ge "browseViewer" textViewer Text Viewer closeMedia closeWindow closeWindow closeMedia szCloseNoNotify szCloseNoNotify closeWindow closeWindow szCloseNoNotify page "Text Viewer" s book textViewer openWindow openWindow odefaultPage = "textViewer" ge "mediaViewer" ge mediaViewer Page "Media Viewer" ptLastMediaPos moved 4ptLastMediaPos -- *** Store the rather than UL corner *** -- ptLastMediaPos moved moved 4ptLastMediaPos ptLastMediaPos moved moved 4ptLastMediaPos page "Browse Viewer" "browseViewer" closeWindow 4logical isBrowseInit szBrowseClip mmIsOpen mmClose % wait mainWindow mediaObjects mediaObjectBounds versionID Media viewerType System Arial BW Times Arial d:\enter\perform\celnav :CDMEDIAPATH :SHOWCONFIRM 2850,825 ptBackgroundSize textField Arial mediaObjectNames BW TIMES Button id 15 of Page id 1 Button id 16 of Page id 1 Button id 20 of Page id 1 Group id 14 of Page id 1 Button id 17 of Page id 1 Button id 18 of Page id 1 Button id 19 of Page id 1 Stage id 29 of Page id 1 Group id 59 of Page id 1 RecordField id 0 of Background id 0 2820,885 HxuJlxA RecordField id 0 of Background id 0 Button id 15 of Page id 1 Button id 16 of Page id 1 Button id 20 of Page id 1 Group id 14 of Page id 1 Button id 17 of Page id 1 Button id 18 of Page id 1 Button id 19 of Page id 1 Stage id 29 of Page id 1 Group id 59 of Page id 1 60,60,390,390 60,60,390,390 2100,450,2760,765 390,60,2100,390 390,60,555,390 2100,60,2430,390 2430,60,2760,390 60,60,2760,75 60,450,345,795 2820,885 2820,885 345,510,2100,780 60,120,390,450 60,120,390,450 2100,510,2760,825 390,120,2430,450 390,120,555,450 2100,120,2430,450 2430,120,2760,450 30,30,2760,45 60,510,345,855 age id 1 Button id 19 of Page id 1 Stage id 29 of Page id 1 Group id 59 of Page id 1 0,60,390,390 2100,450,2760,765 390,60,2100,390 390,60,555,390 2100,60,2430,390 2430,60,2760,390 60,60,2760,75 60,450,345,795 2820,885 2820,885 345,510,2100,780 60,120,390,450 60,120,390,450 2100,510,2760,825 390,120,2430,450 390,120,555,450 2430,120,2760,450 2430,120,2760,450 30,30,2760,45 60,510,345,855 age id 1 Button id 19 of Page id 1 Stage id 29 of Page id 1 Group id 59 of Page id 1 f Page id 1 d:\_nautcd\extras\browse.avi \IMAGE2_2.WAV TileWal Metatec ncd256 NautilusCD playMedia szMediaSource,bIsInPlace,dwLength,stSize Arguments -- * E : String containing the complete pathname -- source file track CDAudio. This Donly -- required parameter initialization. -- * : Boolean whether media plays " -place". -- * : Dword length appropriate known. -- For pictures, pass a zero passed -- * : Stack either pixels -- visual -- * Notes: If kstack, MPT.SBK must precede -- % so that can concatenate relative -- romDrive(). Otherwise, -- szClipRef,szMediaType,szViewer,szStage szMediaFinish,szStatus dwMediaLength gwTimerID 4logical bMediaInit,bVisual,bNotify,bSlider,bLooping bSuperceded,bViewerInit,bSliderInit szIdleCmds[] -- *** Mechanism series commands on *** -- dwBegin SysSuspend,bSysMediaSuspend = "Metatec" = "mediaViewer" = "mediaViewerStage" p> 0 -- *** always > 0 called extension. *** -- -- *** It B. *** -- -- *** Get type w/o having performance *** -- -- *** reasons display "user-friendly" Xnames. *** -- = mediaType( c"Text" -- *** Might be "Rich Format" *** -- playText mmIsOpen clip mmStop mmClose KillTimer(windowHandle isOpen = preference("mediaFinish","closeViewer") -- *** ,,default *** -- = 42 -- *** The answer God, Universe, Everything *** -- callMCI(" cdaudio milliseconds Gstatus " && && " isType( "Cannot determine starting " && " && && " " && "There was a problem initializing mmSource = "CDaudio" mmTimeFormat mmBeginPoint mmEndPoint - 2 -- *** Fudge factor *** -- = "Track" && = "Opening CD | .." initViewer initSlider "Bitmap,Movie" <> " " && & "..." -- *** If supplied, asap (B4 opening ) *** -- ) >= 2) -- *** As above, initialize /slider w/o possible *** -- <> 0) -- *** Zero means - no Z. *** -- -- *** System var, used multiple handlers *** -- bSysSuspend = = sysMediaSuspend closeMedia -- *** To *** -- = fileOnly( <> " = "frames" mmBackgroundPalette = mmSourceLength mmOpen mmCue bInPlace = ( P) -- *** below *** -- -- *** so don't *** -- -- *** Workaround lack movies are played. *** -- dimensions( ) + 1] = " ""MediaViewer"" " && \ & ";mmPlay """ & & """ " && stage" && & "; ) + 1] = "mmPause " && && \ " && ) + 1] = " " && \ """ & & """ " && && "notify" && -- *** *** -- ) + 1] = " SetTimer( targetWindow, ,1000,0) 4point ptLastTextPos szTextViewer,szTemp RichText \lFileSize bRichText = ( \ = "textViewer" parentWindow " = "Reading document..." J"textField" = "0,0" screenResolution() = getFileSize( richText o(13) o(10) o(32) playMCI fPlacement szTypeOfMedia szMediaBounds t = " alias _media " && && "style child " && sysClientHandle && \ " && && " on 1") TMSF") tracks") " && && " " && + 1 && \ " && && " = "0,0,0,0" = "topLeft" = movieBounds(" = "topRight" = "bottomLeft" = "bottomRight" ) = 4 -- *** Convert coordinates extents *** -- -- *** Add 1 avoid showing a *** -- -- *** placeholder graphic *** -- - 1) - 1) ~(",", " && realize destination )" && state stop ") -- *** seems *** -- flushMessageQueue() MCINotify ,szOperation,szDevice Interrupted ( = " <> "successful" bInterrupted = MediaPos eft,ptSize,ptFudgeFactor dwRight,dwOffset defaultType captionBar = "popup" = dialogFrame outerBevelWidth = 0 innerBevelWidth = 0 borderWidth = 0 = sysPageUnitsPerPixel -- *** 0,0 *** -- = 30 = 30 = 30 = 60 -- *** 0 *** -- -- *** will have been opened *** -- mmVisualSize -- *** hasn't Ryet *** -- P-- *** rect *** -- pageUnitsToClient( -- *** x & y *** -- -- *** mediaSize different fbevels UNLESS *** -- -- *** saved a non- values *** -- -- *** height greater than 1/3 eventual width (?!*)*** -- -- *** ( twice widths, therefore multiply H3 instead *** -- ptLeft = lSide( = rSide( = 2760 + "icons" B"slideBar" = "slideBox" = "" = " = B"stepback" = B"stepforward" = " = " = objTop B"slidebar" -- *** Update et al. *** -- L%") + translateWindowMessage on 0x0113 setSlideBar parentHandle b# = ptPosition = ") + ptLastMediaPos = "0,0" ]' = -- *** 7'enter L''moved' *** -- -- *** (i.e., ;%) *** -- / 2) > \ / 2) > \ / 2) < 0 / 2) < 0 / 2)), \ / 2)) dwSlideInterval,dwSlideIncrement a',dwTravel,dwSlideStart linkDLL $ord, ' / 16) ( = " / 10) ") - pauseMedia dwPosition 4( = ( = "WaveAudio" , = mmPosition mmSeek dwCurPos ~)Playing, focusWindow <> " bPlaying = (mmStatus = "playing") P) = key = mmStep - 1, \ J+ - 1 keyDownArrow z+ - 1 - 1, \ I, = " xmmVisible mmShow ><> " , = " b,) + 1] = " " && C-bUsesViewer reset , -- *** In had its +. = closeTextViewer mmNotify mediaRef,cmd,result Q = " mmMediaType J/ = " W/ = y) -- *** might be Q0 *** -- / = "auto-loop" ^/ = mmRewind cmd = ,dwTraveled 1) * szBounds dwLeft,dwTop "ClientArea .where ptClientArea = clientSize ) / 2 ) / 2 statusBar myPath D$ = i$ = "\" printText 1440, 1440, 1440, 1440 360, 7215 sysSuspendMessages resetMediaViewer szObjects[] 6 stArray[] $ = mediaObjectNames - = mediaObjectBounds pi] = 4() = ptBackgroundSize storeObjectBounds 6 stBounds[] i] = + , #? + , #? + , #> + , #? set cdaudio time format milliseconds closeMedia Opening mediaFinish ;mmPlay clip " status cdaudio length track initViewer system logical bSuperceded;bSuperceded = false mediaType szStatus Bitmap open cdaudio wait playText bViewerInit Opening CD Audio... pause close cdaudio wait initSlider bSliderInit bInPlace Bitmap,Movie Track bSuperceded milliseconds wTimerID CDAudio notify bVisual bNotify mediaViewerStage szViewer mmPause clip Cannot determine length of track frames from 0 in stage KillTimer CDaudio closeViewer bSlider szStage Movie in viewer "MediaViewer" of szIdleCmds szMediaFinish dwMediaLength EofileOnly bLooping xSetTimer There was a problem initializing CDAudio status cdaudio position track szMediaType szClipRef bMediaInit default preference mediaViewer status Cannot determine starting position of track set cdaudio time format milliseconds wait Metatec playMedia .&+ +E .&, 7 .&, 7 szMediaType ptLastTextPos default EofileOnly getFileSize Reading document... screenResolution textViewer Rich Text Format textField status playText -#, #? V, #? -#, #? alias _media wait Movie stop _media wait 0,0,0,0 close _media wait mediaType topLeft break _media on 1 play _media from center style child parent movieBounds set _media time format TMSF put _media destination at window _media state show topRight realize _media background play _media wait CDAudio open cdaudio alias _media wait window _media handle status _media number of tracks bottomRight bottomLeft playMCI bInterrupted successful MCINotify 1+U!8 szViewer ptPosition lSide slidebar objTop szClipRef stepforward pause szMediaType bSlider bViewerInit slideBar rSide ptLastMediaPos setSlideBar slideBox width objTop rSide szStage screenResolution lSide icons close bVisual stepback status initViewer +&,!J +&,!J szViewer dwTravel Movie slideBar dwSlideStart szMediaType dwSlideIncrement dwSlideInterval rSide dwMediaLength slider width bSliderInit SetTimer KillTimer initSlider WaveAudio szMediaType bSuperceded mediaViewer szClipRef pauseMedia +&,!" +&,!J +&,!J setSlideBar mediaViewerStage WaveAudio Movie playMedia pause szMediaType bSlider dwSlideIncrement dwSlideInterval szIdleCmds mediaViewer dwMediaLength playing send playMedia to MediaViewer szClipRef keyDown szViewer KillTimer wTimerID szIdleCmds bMediaInit szClipRef closeMedia textViewer closeTextViewer mmRewind closeViewer szViewer closeMedia lSide bMediaInit KillTimer wTimerID Bitmap auto-loop successful mmPause bVisual bInPlace bLooping mmClose bSuperceded slideBar mmPlay szMediaFinish szClipRef rSide mmNotify +&,!Y +&,!Y szViewer dwTravel lSide dwSlideStart dwMediaLength slidebar szClipRef setSlideBar bottomRight topLeft topRight center where _media source wait bottomLeft movieBounds <+U!! reader statusBar enterBook myPath .&+ + textField printText mediaObjectBounds mediaViewer mediaObjectNames ptBackgroundSize Media Viewer resetMediaViewer mediaObjectBounds ptBackgroundSize mediaObjectNames storeObjectBounds WaveAudio Movie SfileExtension Bitmap AVI,MOV,FLI,FLC,MMM BMP,DIB,GIF,PCX,TIF,WMF Sequencer TXT,DOC Unsupported media Rich Text Format CDAudio mediaType 1, #b fileExtension 1, #b fileOnly lSide lSide objTop objTop rSide width rSide height width width height height mediaViewer noSize dwSeekTo dwDelta KillTimer wTimerID mediaViewer dwLastX bLooping Playing bPlaying szClipRef buttonDown +&,!Y dwDelta rSide width lSide stepback buttonStillDown +&,!J +&,!Y +&,!Y +&,!Y w, #? dwSeekTo WaveAudio dwTravel dwDelta szMediaType mediaViewer rSide szIdleCmds dwMediaLength send playMedia to bPlaying szClipRef buttonUp CDBSE&File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar wwwwwwp wwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwww wwwwww wwwww wwwww wwwww wwwww wwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp CDAudio wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp {\rtf1\ansi \deff0{\fonttbl{\f0\froman Tms Rmn;}{\f1\fdecor {\rtf1\ansi \deff0{\fonttbl{\f0\froman Tms Rmn;}{\f1\fdecor Symbol;}{\f2\fswiss Helv;}{\f3\fswiss Helvetica;}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255; \red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;}{\stylesheet{\s244 \fs16\up6 \sbasedon0\snext0 footnote reference;}{\s245 \fs20 \sbasedon0\snext245 footnote text;}{\s246\li720 \i\fs20 \sbasedon0\snext255 heading 9;}{\s247\li720 \i\fs20 \sbasedon0\snext255 heading 8;}{\s248\li720 \i\fs20 \sbasedon0\snext255 heading 7;}{\s249\li720 \fs20\ul \sbasedon0\snext255 heading 6;}{\s250\li720 \b\fs20 \sbasedon0\snext255 heading 5;}{\s251\li360 \ul \sbasedon0\snext255 heading 4;}{ \s252\li360 \b \sbasedon0\snext255 heading 3;}{\s253\sb120 \b\f2 \sbasedon0\snext0 heading 2;}{\s254\sb240 \b\f2\ul \sbasedon0\snext0 heading 1;}{\s255\li720 \fs20 \sbasedon0\snext255 Normal Indent;}{\fs20 \snext0 Normal;}{\s2\fi-240\li480\sb80\tx480 \f3 \sbasedon0\snext2 nscba;}{\s3\fi-240\l